home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1993 / Internet Info CD-ROM (Walnut Creek) (1993).iso / networking / terms / kermit / d / hc6ker.ins < prev    next >
Encoding:
Text File  |  1988-08-16  |  2.8 KB  |  94 lines
  1. !LET ECHOING= 1
  2. !   IF $FID_EXIST('DONTECHO.X') THEN DONTECHO.X ECHOING
  3. !"
  4. !GET_VERSION:
  5. !   LET VERSION=$INPUT('Enter your CP-6 operating system version (B03,C00,etc.): ')
  6. !   IF $LEN(VERSION) > 0 THEN GOTO CHECK_VERSION
  7. !   OUTPUT '.. Version C01 is assumed.'
  8. !   LET VERSION='C01'
  9. !   GOTO GET_ACCOUNT
  10. !"
  11. !CHECK_VERSION:
  12. !   IF VERSION = 'Q' THEN GOTO RESET_ECHO
  13. !   IF $LEN(VERSION) = 3 THEN GOTO CHECK_VERSION_PREFIX
  14. !   OUTPUT '.. Version MUST be three characters -- Try again.'
  15. !   GOTO GET_VERSION
  16. !"
  17. !CHECK_VERSION_PREFIX:
  18. !   IF $SUBSTR(VERSION,0,1) = 'B' THEN GOTO GET_ACCOUNT
  19. !   IF $SUBSTR(VERSION,0,1) = 'C' THEN GOTO GET_ACCOUNT
  20. !   IF $SUBSTR(VERSION,0,1) = 'D' THEN GOTO GET_ACCOUNT
  21. !   IF $SUBSTR(VERSION,0,1) = 'E' THEN GOTO GET_ACCOUNT
  22. !   LET MSG='.. Are you sure you mean version ' || VERSION || '? '
  23. !   LET ANS=$INPUT('%MSG')
  24. !   IF $LEN(ANS) = 0 THEN GOTO GET_VERSION
  25. !   IF $SUBSTR(ANS,0,1) .NE. 'Y' .AND. $SUBSTR(ANS,0,1) .NE. 'y' THEN GOTO GET_VERSION
  26. !"
  27. !GET_ACCOUNT:
  28. !   LET ACCOUNT=$INPUT('Enter the account where the HC6? files reside .')
  29. !   IF $LEN(ACCOUNT) = 0 THEN LET ACCOUNT=$DIR
  30. !   IF ACCOUNT = 'Q' THEN GOTO RESET_ECHO
  31. !   IF $LEN(ACCOUNT) <= 8 THEN GOTO GET_WSN
  32. !   LET MSG='.. An account of ' || ' is too long - Try again'
  33. !   OUTPUT MSG
  34. !   GOTO GET_ACCOUNT
  35. !"
  36. !GET_WSN:
  37. !   LET WSN=$INPUT('Enter the WSN to be used by the KERMIT compile job: ')
  38. !   IF $LEN(WSN) > 0 THEN GOTO CHECK_WSN
  39. !   OUTPUT '.. WSN of @LOCAL assumed.'
  40. !   LET WSN='LOCAL'
  41. !   GOTO VERIFY_ANSWERS
  42. !"
  43. !CHECK_WSN:
  44. !   IF WSN = 'Q' THEN GOTO RESET_ECHO
  45. !   IF $LEN(WSN) <= 8 THEN GOTO VERIFY_ANSWERS
  46. !   LET MSG='.. WSN of ' || WSN || ' is too long -- Try again'
  47. !   OUTPUT MSG
  48. !   GOTO GET_WSN
  49. !"
  50. !VERIFY_ANSWERS:
  51. !   OUTPUT '***** Are the following correct?'
  52. !   LET MSG='CP-6 operating system version is ' || '%VERSION'
  53. !   OUTPUT MSG
  54. !   LET MSG='All HC6KERMIT? files are in .' || '%ACCOUNT'
  55. !   OUTPUT MSG
  56. !   LET MSG='WSN the compile job should use is @' || '%WSN'
  57. !   OUTPUT MSG
  58. !   OUTPUT ' '
  59. !GET_VERIFY_ANSWER:
  60. !   LET ANS=$INPUT('Correct? ')
  61. !   IF $LEN(ANS) = 0 THEN GOTO GET_VERIFY_ANSWER
  62. !   IF $SUBSTR(ANS,0,1)='Y' .OR. $SUBSTR(ANS,0,1)='y' THEN GOTO BUILD_CMD_FILE
  63. !   GOTO GET_VERSION
  64. !"
  65. !BUILD_CMD_FILE:
  66. !C ME OVER *LEE(NB)
  67. !!E
  68. C HC6KERMIT_JCL
  69. SE 0-5,/!DEFAULT/
  70. 1E/!DEFAULT OSVERS='VVV',YOURWSN='WWW',DIRACCT='DDD',DEST='*LS'/
  71. C HC6KERMIT_PAR
  72. SE 0-200,/%EQU OS_VERSION/
  73. //?/'/?/'/?/ /S//?1/'VVV'/?3/ /;TX
  74. C HC6KERMIT_PL6
  75. SE 0-200,/%EQU OS_VERSION/
  76. //?/'/?/'/?/ /S//?1/'VVV'/?3/ /;TX
  77. END
  78. !!C HC6KERMIT_JCL OVER HC6KERMIT_JCL(NLN,NB)
  79. !!C HC6KERMIT_PAR OVER HC6KERMIT_PAR(NLN,NB)
  80. !!C HC6KERMIT_PL6 OVER HC6KERMIT_PL6(NLN,NB)
  81. !"
  82. !BACKUP_FILES:
  83. !   PCL
  84.     CA HC6KERMIT_JCL TO *?
  85.     CA HC6KERMIT_PAR TO *?
  86.     CA HC6KERMIT_PL6 TO *?
  87.     END
  88. !"
  89. !MAKE_MY_DAY:
  90. !   XEQ *LEE 'VVV'=%VERSION,'WWW'=%WSN,'DDD'=%ACCOUNT
  91. !RESET_ECHO:
  92. !   IF ECHOING THEN ECHO
  93. !EOJ:
  94.